home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib03.dsk
/
TAPE SOFTWARE PROTECTION.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
366b
|
7 lines
10 GOSUB 70: POKE 1010,0: POKE 1011,3: CALL -1169
20 ONERR GOTO 60
30 HOME : VTAB 12: PRINT "YOU CAN'T LIST ME"
40 VTAB 14: HTAB 20: PRINT I:I = I +1: GOTO 40
60 IF PEEK(222) = 255 THEN CALL 768
70 FOR I = 768 TO 795: READ A: POKE I,A: NEXT : RETURN
80 DATA 169,0,133,60,169,208,133,61,169,0,133,62,169,240,133,63,169,0,133,66,169,2,133,67,32,44,254,74